home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / join.bas < prev    next >
BASIC Source File  |  1992-05-06  |  133b  |  8 lines
  1. 100   input a: ? a
  2. 110   a$ = mks$(a)
  3. 120   for i = 1 to 4
  4. 130   b$ = mid$(a$,i,1)
  5. 131   ? hex$(asc(b$))
  6. 140   next i
  7. 200   goto 100
  8.